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Cette fonction comprend une fonction principale, CANON à 4 
paramètres et deux fonctions auxiliaires RAZCON et REVERS. 
Flle calcule un canon de longueur donnée (en valeurs égales), 
. d'un nombre de voix données, avec un contrôle métodique très faible et 
une écriture harmonique où les intervalles tolérées sont, à deux voix, 


la quarte et la quinte, et à plus de deux voix l'unisson et 1а quinte. 


Les Fonctions Auxiliaires 


RAZCON admet un nombre indéfini d'arguments. Sert à remettre 
| à zéro les compteurs qu'on lui donne en arguments. 
REVERS | livre la liste-miroir de la liste qu'on lui donne еп 
| argument. | 
ex.: (REVERS "(А В С)) donne (С В А) 
(REVERS "((А В) С) donne (с. (А В)) 


La Fonction Principale 


Paramètre de la fonction : 


та тж) on а» «жа ққа ғә ue ма ғә оп а Ше «ЖӘ GUN өше «е өн б nb OR ға өш ә 


: nombre де voix 


А 

В: Longueur du canon 

U : décalage entre les voix 
С: nombre aléatoire de départ 


Variables internes : 


: note courante 
В: pile du canon (s'empile а l'envers, CAR R désignant 1а 


dernière note émise) 
eefa 
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V : оп y duplique R pour pwoir dépiler à son aise 


qualifie le mouvement ascendant (5 = - 1) ou 


descendant (5 = 1) 
D : intervalle mélodique pris entre O et 4, 0 désignant 
l'unisson et 4 la quinte 
X 
Y 


compteur qui sert au dépilage 


4% 


intervalle harmonique entre deux notes simultanées 


Déroulement des opérations 


т. ағ AD ON ша En ее ыс ыз «ә ою A ah ж AD ЕВ VA de аш 0 ар ғ. ON выс ы нə 


- la première note est prise aléatoirement, puis imprimée 

- En HOP1 | | 
(Ré) initialisation des compteurs 

- Calcul de S selon la hauteur de 1а dernière note émise. 
Si elle est inférieure à 4, mouvement montant 
Si elle est supérieure à 8, mouvement descendant 
Si non, choix aléatoire 

2 Tirage aléatoire modulo 4 de 1а valeur de D 

Je trouve une nouvelle note possible en fonction de D et de S 
Si la longueur du canon est inférieure au décalage U, il 
n'y aura pas de simultanéité. Je vais à l'impression 

- En HAPI : 
Je dépile У, le CAR V sera la première des notes de la 
voix initiale qui sera entendue simultanément à une nou- 
velle note que j'ai tirée aléatoirement. 

- En HAP2 : 
Je mets еп Ÿ l'intervalle harmonique. Il est ramené à un 
intervalle compris entre l'unisson ес l'octave (une neuvième 
par exemple sera considérée comme une seconde). 
On teste si Ү est un intervalle permis. Si oui оп l'imprime. 
Si non on supprime la note courante et on va chercher une 


autre note en se rendant en HOP. 


Ces opérations sont recommencées autant de fois qu'on désire 
de notes dans le canon. 

А la fin, on retourne comme valeur de 1а fonction 1а liste 
des nombres qui représentent les notes, dans l'ordre dans lequel ils 


seront entendus. 
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(PRETTY APPEND REVERS RAZCON САМОМ) 


(АРРЕМО 
СГҺАМВОА (ХХХ YYY) 
(COND 
CCNULL XXX) 
YYY) 
(CONS CCAR XXX) CAPPEND (CDR XXX) YYY)))))) 
(REVERS | 
(LAMBDA CL) 
(COND 
CCNULL $L) 
NIL) 
CT 
САРРЕМО CREVERS (СОВ %1)) CLIST - 
(CAR %$L))))DD9) 
(RAZCON 
(LAMBDA C$L) 
СМАРС 
EL 
(QUOTE CLAMBDA CSL) 
CSET $L 00220200200 
(CANON | 


(LAMBDA СА В U С) 
(PROG (СОВ SD V X Y) 
CRAZCON Q X S). Е 
(5ЕТО С CREM СТІМЕЅ | 


C 
72 1093)) 
(5ЕТ0 Q CADDI CREM С 12220 
СЅЕТО R (1157 |: 
QD) 
(GO OK) 
HOP1 CRAZCON X) 
(NEXTL R) 
СЅЕТО Q CCAR R)) 
НОР (5ЕТ0 5 CCOND 
| ССТ Q 4) 


1) 
CCGT 0 8) 
-10 

CT 


22 -= 


(CAR (МТН CADD1 (CREM С 23) CQUOTE С-1 12222222 


(5ЕТО С CREM СТІМЕ5 
C 
7) 1093)) 
СЅЕТО D CREM С 02 
СЅЕТО Q CPLUS 


Q 
(TIMES 


5 
р222 
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(SETQ У СЅЕТО R ССО ^ R))) 
САМО 
(LT CLENGTH У) М0 
(GO OK)) 
HAP1 ССОМО 
СОЛТ U CADDI1 CLENGTH У222 
СЅЕТО V CNTH U У222 
CT 
CGO HAP2))) 
CSETQ X CADD1 X)) 
CCOND 
(CLT X CADDI A)) 
(GO HAP1)) 
СТ 
(60 НАР2))) 
НАР2 (ЅЕТО Y (DIFFER CCAR R) CCAR У) 2) 
(COND 
CCLT Y 0) 
CSETQ Y CPLUS 
8 


Y))) 
(CGT Y 7) 
(SETQ Y CDIFFER Y 72222 
(COND 
(СЕОА 2) 
(COND 
ССМЕМВЕК Y CQUOTE (5 47» 
(GO ОК) ) 
CT 
(GO НОР12222 
ССМЕМВЕВ Y CQUOTE СО +) )) 
(GO ОК) ) 
СТ 
(GO HOP1))) 
(RAZCON X Y Z) 
OK (RAZCON X) 
(SPACES 40) 
(PRINT CCAR (МТН Q CQUOTE (ОО RE MI FA SOL LA SI DOH REH 
MIH FAH SOLH))) 
22 
СОК 
СЕК (LENGTH R) В) 
(GO НОР) ) 
(RETURN CREVERS В) )2)) 
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